3.29 \(\int \log (e (f (a+b x)^p (c+d x)^q)^r) \, dx\)

Optimal. Leaf size=61 \[ \frac {(a+b x) \log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right )}{b}+\frac {q r (b c-a d) \log (c+d x)}{b d}-(r x (p+q)) \]

[Out]

-(p+q)*r*x+(-a*d+b*c)*q*r*ln(d*x+c)/b/d+(b*x+a)*ln(e*(f*(b*x+a)^p*(d*x+c)^q)^r)/b

________________________________________________________________________________________

Rubi [A]  time = 0.01, antiderivative size = 61, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 21, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.143, Rules used = {2487, 31, 8} \[ \frac {(a+b x) \log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right )}{b}+\frac {q r (b c-a d) \log (c+d x)}{b d}+r x (-(p+q)) \]

Antiderivative was successfully verified.

[In]

Int[Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r],x]

[Out]

-((p + q)*r*x) + ((b*c - a*d)*q*r*Log[c + d*x])/(b*d) + ((a + b*x)*Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r])/b

Rule 8

Int[a_, x_Symbol] :> Simp[a*x, x] /; FreeQ[a, x]

Rule 31

Int[((a_) + (b_.)*(x_))^(-1), x_Symbol] :> Simp[Log[RemoveContent[a + b*x, x]]/b, x] /; FreeQ[{a, b}, x]

Rule 2487

Int[Log[(e_.)*((f_.)*((a_.) + (b_.)*(x_))^(p_.)*((c_.) + (d_.)*(x_))^(q_.))^(r_.)]^(s_.), x_Symbol] :> Simp[((
a + b*x)*Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r]^s)/b, x] + (Dist[(q*r*s*(b*c - a*d))/b, Int[Log[e*(f*(a + b*x)^p
*(c + d*x)^q)^r]^(s - 1)/(c + d*x), x], x] - Dist[r*s*(p + q), Int[Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r]^(s - 1
), x], x]) /; FreeQ[{a, b, c, d, e, f, p, q, r, s}, x] && NeQ[b*c - a*d, 0] && NeQ[p + q, 0] && IGtQ[s, 0] &&
LtQ[s, 4]

Rubi steps

\begin {align*} \int \log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right ) \, dx &=\frac {(a+b x) \log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right )}{b}+\frac {((b c-a d) q r) \int \frac {1}{c+d x} \, dx}{b}-((p+q) r) \int 1 \, dx\\ &=-(p+q) r x+\frac {(b c-a d) q r \log (c+d x)}{b d}+\frac {(a+b x) \log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right )}{b}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.07, size = 57, normalized size = 0.93 \[ x \left (\log \left (e \left (f (a+b x)^p (c+d x)^q\right )^r\right )-r (p+q)\right )+\frac {a p r \log (a+b x)}{b}+\frac {c q r \log (c+d x)}{d} \]

Antiderivative was successfully verified.

[In]

Integrate[Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r],x]

[Out]

(a*p*r*Log[a + b*x])/b + (c*q*r*Log[c + d*x])/d + x*(-((p + q)*r) + Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r])

________________________________________________________________________________________

fricas [A]  time = 0.41, size = 72, normalized size = 1.18 \[ \frac {b d r x \log \relax (f) + b d x \log \relax (e) - {\left (b d p + b d q\right )} r x + {\left (b d p r x + a d p r\right )} \log \left (b x + a\right ) + {\left (b d q r x + b c q r\right )} \log \left (d x + c\right )}{b d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(e*(f*(b*x+a)^p*(d*x+c)^q)^r),x, algorithm="fricas")

[Out]

(b*d*r*x*log(f) + b*d*x*log(e) - (b*d*p + b*d*q)*r*x + (b*d*p*r*x + a*d*p*r)*log(b*x + a) + (b*d*q*r*x + b*c*q
*r)*log(d*x + c))/(b*d)

________________________________________________________________________________________

giac [A]  time = 0.20, size = 66, normalized size = 1.08 \[ p r x \log \left (b x + a\right ) + q r x \log \left (d x + c\right ) + \frac {a p r \log \left (b x + a\right )}{b} + \frac {c q r \log \left (-d x - c\right )}{d} - {\left (p r + q r - r \log \relax (f) - 1\right )} x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(e*(f*(b*x+a)^p*(d*x+c)^q)^r),x, algorithm="giac")

[Out]

p*r*x*log(b*x + a) + q*r*x*log(d*x + c) + a*p*r*log(b*x + a)/b + c*q*r*log(-d*x - c)/d - (p*r + q*r - r*log(f)
- 1)*x

________________________________________________________________________________________

maple [A]  time = 0.05, size = 61, normalized size = 1.00 \[ \frac {a p r \ln \left (b x +a \right )}{b}+\frac {c q r \ln \left (d x +c \right )}{d}-p r x -q r x +x \ln \left (e \left (f \left (b x +a \right )^{p} \left (d x +c \right )^{q}\right )^{r}\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(ln(e*(f*(b*x+a)^p*(d*x+c)^q)^r),x)

[Out]

x*ln(e*(f*(b*x+a)^p*(d*x+c)^q)^r)-r*p*x-r*q*x+r*c*q/d*ln(d*x+c)+r*a*p/b*ln(b*x+a)

________________________________________________________________________________________

maxima [A]  time = 0.62, size = 75, normalized size = 1.23 \[ x \log \left (\left ({\left (b x + a\right )}^{p} {\left (d x + c\right )}^{q} f\right )^{r} e\right ) - \frac {{\left (b f p {\left (\frac {x}{b} - \frac {a \log \left (b x + a\right )}{b^{2}}\right )} + d f q {\left (\frac {x}{d} - \frac {c \log \left (d x + c\right )}{d^{2}}\right )}\right )} r}{f} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(e*(f*(b*x+a)^p*(d*x+c)^q)^r),x, algorithm="maxima")

[Out]

x*log(((b*x + a)^p*(d*x + c)^q*f)^r*e) - (b*f*p*(x/b - a*log(b*x + a)/b^2) + d*f*q*(x/d - c*log(d*x + c)/d^2))
*r/f

________________________________________________________________________________________

mupad [B]  time = 0.22, size = 60, normalized size = 0.98 \[ x\,\ln \left (e\,{\left (f\,{\left (a+b\,x\right )}^p\,{\left (c+d\,x\right )}^q\right )}^r\right )-p\,r\,x-q\,r\,x+\frac {a\,p\,r\,\ln \left (a+b\,x\right )}{b}+\frac {c\,q\,r\,\ln \left (c+d\,x\right )}{d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(log(e*(f*(a + b*x)^p*(c + d*x)^q)^r),x)

[Out]

x*log(e*(f*(a + b*x)^p*(c + d*x)^q)^r) - p*r*x - q*r*x + (a*p*r*log(a + b*x))/b + (c*q*r*log(c + d*x))/d

________________________________________________________________________________________

sympy [A]  time = 17.64, size = 187, normalized size = 3.07 \[ \begin {cases} x \log {\left (e \left (a^{p} c^{q} f\right )^{r} \right )} & \text {for}\: b = 0 \wedge d = 0 \\\frac {c q r \log {\left (c + d x \right )}}{d} + p r x \log {\relax (a )} + q r x \log {\left (c + d x \right )} - q r x + r x \log {\relax (f )} + x \log {\relax (e )} & \text {for}\: b = 0 \\\frac {a p r \log {\left (a + b x \right )}}{b} + p r x \log {\left (a + b x \right )} - p r x + q r x \log {\relax (c )} + r x \log {\relax (f )} + x \log {\relax (e )} & \text {for}\: d = 0 \\\frac {a p r \log {\left (a + b x \right )}}{b} + \frac {c q r \log {\left (c + d x \right )}}{d} + p r x \log {\left (a + b x \right )} - p r x + q r x \log {\left (c + d x \right )} - q r x + r x \log {\relax (f )} + x \log {\relax (e )} & \text {otherwise} \end {cases} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(ln(e*(f*(b*x+a)**p*(d*x+c)**q)**r),x)

[Out]

Piecewise((x*log(e*(a**p*c**q*f)**r), Eq(b, 0) & Eq(d, 0)), (c*q*r*log(c + d*x)/d + p*r*x*log(a) + q*r*x*log(c
+ d*x) - q*r*x + r*x*log(f) + x*log(e), Eq(b, 0)), (a*p*r*log(a + b*x)/b + p*r*x*log(a + b*x) - p*r*x + q*r*x
*log(c) + r*x*log(f) + x*log(e), Eq(d, 0)), (a*p*r*log(a + b*x)/b + c*q*r*log(c + d*x)/d + p*r*x*log(a + b*x)
- p*r*x + q*r*x*log(c + d*x) - q*r*x + r*x*log(f) + x*log(e), True))

________________________________________________________________________________________